home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh94a.d64 / 3d-funktion v1.2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 POKE53280,6:FORN=1TO4:READA,B:POKEA,B:NEXT:DIMUG(320),OG(320):PRINT"[147]@BMON";
  2. 2 PRINT"J@BKNGKJH@NOO@OECHJIBG@J@J@EHGEHIJDJDJDEHHEJDFFGEJDFFGEEFHEEFEAIF@BEH";
  3. 3 PRINT"HEEJDAIBHOHJEJDAIBG@JJAKGEMAHC@LAIGE@F@H@D@B@AH@D@B@A@IJ@BJJEHHEIJ@@H";
  4. 4 PRINT"JEHGEAIGEHH@MKOFNHEJL@MFOBJD@FHHEIJ@AAIGEHH@MKOFNHEJL@MFO@FIJ@@LDBJDO"
  5. 5 A=49152:P=A:C=255:FORB=1024TO1234STEP2:POKEA,PEEK(B)+PEEK(B+1)*16:A=A+1:NEXT
  6. 6 T$=CHR$(14)+"[147] 3[196]-[198]UNKTION [214]1.2  VON [210].[198].[211]TREY (1992) ":PRINTT$:POKE53281,1
  7. 7 GOSUB17:INPUT" [204][146]ADEN [194][146]ERECHNEN [197][146]NDE ";A$:IFA$<>"L"ANDA$<>"B"THENLIST19
  8. 8 IFA$="L"THENINPUT" [206]AME ";F$:GOSUB18:SYS57812F$,8,1:SYS49253:WAIT198,1:GOTO6
  9. 9 F$="":PRINTT$:INPUT" [216]-[194]EREICH (A,E) ";XA,XE:INPUT" [217]-[194]EREICH (A,E) ";YA,YE
  10. 10 INPUT" [211]CHRITTWEITE    ";S:S=INT(S):IF(XA-XE)*(YA-YE)=0ORS<1ORS>20THEN9
  11. 11 SY=(YE-YA)/100:GOSUB18:SX=(XE-XA)/200:FORB=0TO320:OG(B)=200:UG(B)=-1:NEXT
  12. 12 FORH=0TO100STEPS:Y=YA+H*SY:FORB=0TO200STEPS:X=XA+B*SX:BP=10+B+H:GOSUB19
  13. 13 HP=150-H-INT(Z):IFHP<OG(BP)THENOG(BP)=HP:IFHP>=0THENSYS49152,BP,HP:DATA193,0
  14. 14 IFHP>UG(BP)THENUG(BP)=HP:IFHP<200THENSYS49152,BP,HP:DATA194,32,174,64,175,63
  15. 15 NEXT:NEXT:WAIT631,255:GOSUB17:PRINTT$:INPUT" [194]ILDNAME ";F$:IFF$=""THEN6
  16. 16 PRINT" [199]RAFIK (AB $2000) WIRD GESPEICHERT...":SYS57812F$,8,1:SYS62957:GOTO6
  17. 17 POKE53265,PEEK(53265)AND223:POKE53280,6:POKE53272,PEEK(53272)AND247:RETURN
  18. 18 X=53265:Y=X+7:POKEX,PEEK(X)OR32:POKEY,PEEK(Y)OR8:POKE53280,0:SYSP,0,C:RETURN
  19. 19 Z=COS(50-ABS(X*Y))*45
  20. 20 RETURN:REM                                 FUNKTION IN ZEILE 19 EINTRAGEN
  21.